home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / H399.ZIP / ODY200SH.LZH / CIX.SCR < prev    next >
Text File  |  1988-11-12  |  653b  |  21 lines
  1.  
  2. SCRIPT Cix;
  3.  
  4. VAR Id,Password:String;
  5.  
  6. BEGIN
  7.      ClrScr();
  8.      Write("█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█|");
  9.      Write("█        Calling CIX via Direct Dial        █|");
  10.      Write("█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█|");
  11.      IF FetchStr("CIX",Id,Password) THEN -- searches PASSWORD.ODY
  12.          IF Dial("CIX") THEN -- dial using dialing dir entry for CIX
  13.              WaitFor("login:");    Transmit("cix|");
  14.              WaitFor("user) ");    Transmit(Id);
  15.              WaitFor("Password:"); Transmit(Password);
  16.          END;
  17.        ELSE
  18.          Write("|Failed to find Id and Password.|");
  19.      END;
  20. END;
  21.